Developer CD Series 1999 December: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 …ember: Reference Library / Apple Developer Reference Library (December 1999) (Disk 1).iso / pc / technical documentation / develop / develop issue 20 / develop issue 20 code / scripting the finder.sea / Scripting the Finder / Finder Snapshot / Main.cp < prev next >
MacBinary | 1994-10-04 | 10.1 KB | [TEXT/MMCC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MS-DOS Code Page Info `(other/dosCodePage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Oct 4 22:29:21 1994, modified Tue Oct 4 22:29:21 1994, creator 'MMCC', type ASCII, 9527 bytes "Main.cp" , at 0x25b7 556 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MMCC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 4d 61 69 6e 2e 63 | 70 00 00 00 00 00 00 00 |..Main.c|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 25 37 00 | 00 02 2c aa b7 c0 01 aa |.....%7.|..,.....|
|00000060| b7 c0 01 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a5 0b 00 00 |........|........|
|00000080| 2f 2a 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/*======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 0d 09 46 69 6e 64 | 65 72 20 53 6e 61 70 73 |==..Find|er Snaps|
|000000e0| 68 6f 74 0d 09 0d 09 a9 | 31 39 39 34 20 47 72 65 |hot.....|1994 Gre|
|000000f0| 67 20 41 6e 64 65 72 73 | 6f 6e 0d 09 67 72 65 67 |g Anders|on..greg|
|00000100| 67 6f 72 40 61 70 70 6c | 65 2e 63 6f 6d 0d 09 0d |gor@appl|e.com...|
|00000110| 09 41 20 70 72 6f 67 72 | 61 6d 20 74 68 61 74 20 |.A progr|am that |
|00000120| 72 65 63 6f 72 64 73 20 | 61 6e 64 20 72 65 73 74 |records |and rest|
|00000130| 6f 72 65 73 20 74 68 65 | 20 6f 70 65 6e 20 46 69 |ores the| open Fi|
|00000140| 6e 64 65 72 20 77 69 6e | 64 6f 77 73 0d 09 09 0d |nder win|dows....|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 2a 2f 0d 23 69 6e 63 6c | 75 64 65 20 3c 47 65 73 |*/.#incl|ude <Ges|
|000001b0| 74 61 6c 74 45 71 75 2e | 68 3e 0d 23 69 6e 63 6c |taltEqu.|h>.#incl|
|000001c0| 75 64 65 20 3c 50 61 6c | 65 74 74 65 73 2e 68 3e |ude <Pal|ettes.h>|
|000001d0| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 54 65 78 74 55 |.#includ|e <TextU|
|000001e0| 74 69 6c 73 2e 68 3e 0d | 0d 23 69 6e 63 6c 75 64 |tils.h>.|.#includ|
|000001f0| 65 20 22 4d 61 69 6e 2e | 68 22 0d 23 69 6e 63 6c |e "Main.|h".#incl|
|00000200| 75 64 65 20 22 53 61 76 | 65 57 69 6e 64 6f 77 73 |ude "Sav|eWindows|
|00000210| 2e 68 22 0d 0d 23 69 6e | 63 6c 75 64 65 20 22 45 |.h"..#in|clude "E|
|00000220| 76 65 6e 74 48 61 6e 64 | 6c 65 72 2e 68 22 0d 0d |ventHand|ler.h"..|
|00000230| 23 69 6e 63 6c 75 64 65 | 20 22 53 74 72 69 6e 67 |#include| "String|
|00000240| 55 74 69 6c 69 74 69 65 | 73 2e 68 22 0d 23 69 6e |Utilitie|s.h".#in|
|00000250| 63 6c 75 64 65 20 22 4d | 61 63 55 74 69 6c 69 74 |clude "M|acUtilit|
|00000260| 69 65 73 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |ies.h".#|include |
|00000270| 22 41 70 70 6c 65 45 76 | 65 6e 74 55 74 69 6c 69 |"AppleEv|entUtili|
|00000280| 74 69 65 73 2e 68 22 0d | 0d 23 69 66 6e 64 65 66 |ties.h".|.#ifndef|
|00000290| 20 45 78 63 65 70 74 69 | 6f 6e 73 5f 68 0d 23 69 | Excepti|ons_h.#i|
|000002a0| 6e 63 6c 75 64 65 20 22 | 45 78 63 65 70 74 69 6f |nclude "|Exceptio|
|000002b0| 6e 73 2e 68 22 0d 23 65 | 6e 64 69 66 0d 0d 2f 2f |ns.h".#e|ndif..//|
|000002c0| 0d 2f 2f 20 46 6f 72 20 | 69 75 53 79 73 74 65 6d |.// For |iuSystem|
|000002d0| 53 63 72 69 70 74 0d 2f | 2f 0d 23 69 66 6e 64 65 |Script./|/.#ifnde|
|000002e0| 66 20 5f 5f 50 41 43 4b | 41 47 45 53 5f 5f 0d 23 |f __PACK|AGES__.#|
|000002f0| 69 6e 63 6c 75 64 65 20 | 3c 50 61 63 6b 61 67 65 |include |<Package|
|00000300| 73 2e 68 3e 0d 23 65 6e | 64 69 66 0d 0d 2f 2f 0d |s.h>.#en|dif..//.|
|00000310| 2f 2f 20 46 6f 72 20 73 | 70 72 69 6e 74 66 2c 20 |// For s|printf, |
|00000320| 73 74 72 6c 65 6e 0d 2f | 2f 0d 23 69 6e 63 6c 75 |strlen./|/.#inclu|
|00000330| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0d 23 69 6e |de <stdi|o.h>.#in|
|00000340| 63 6c 75 64 65 20 3c 73 | 74 72 69 6e 67 2e 68 3e |clude <s|tring.h>|
|00000350| 0d 0d 2f 2f 0d 2f 2f 20 | 50 72 6f 74 6f 74 79 70 |..//.// |Prototyp|
|00000360| 65 73 20 66 6f 72 20 70 | 72 69 76 61 74 65 20 66 |es for p|rivate f|
|00000370| 75 6e 63 74 69 6f 6e 73 | 3a 0d 2f 2f 0d 76 6f 69 |unctions|:.//.voi|
|00000380| 64 09 09 09 09 09 49 6e | 69 74 41 6c 6c 28 76 6f |d.....In|itAll(vo|
|00000390| 69 64 29 3b 0d 70 61 73 | 63 61 6c 20 4f 53 45 72 |id);.pas|cal OSEr|
|000003a0| 72 09 09 09 51 75 69 74 | 41 70 70 6c 69 63 61 74 |r...Quit|Applicat|
|000003b0| 69 6f 6e 45 76 65 6e 74 | 28 54 41 45 76 65 6e 74 |ionEvent|(TAEvent|
|000003c0| 26 20 61 65 2c 20 54 41 | 45 76 65 6e 74 26 20 72 |& ae, TA|Event& r|
|000003d0| 65 70 6c 79 2c 20 6c 6f | 6e 67 20 72 65 66 43 6f |eply, lo|ng refCo|
|000003e0| 6e 29 3b 0d 70 61 73 63 | 61 6c 20 4f 53 45 72 72 |n);.pasc|al OSErr|
|000003f0| 09 09 09 4f 70 65 6e 41 | 70 70 6c 69 63 61 74 69 |...OpenA|pplicati|
|00000400| 6f 6e 45 76 65 6e 74 28 | 54 41 45 76 65 6e 74 26 |onEvent(|TAEvent&|
|00000410| 20 61 65 2c 20 54 41 45 | 76 65 6e 74 26 20 72 65 | ae, TAE|vent& re|
|00000420| 70 6c 79 2c 20 6c 6f 6e | 67 20 72 65 66 43 6f 6e |ply, lon|g refCon|
|00000430| 29 3b 0d 70 61 73 63 61 | 6c 20 4f 53 45 72 72 09 |);.pasca|l OSErr.|
|00000440| 09 09 4f 70 65 6e 44 6f | 63 75 6d 65 6e 74 45 76 |..OpenDo|cumentEv|
|00000450| 65 6e 74 28 54 41 45 76 | 65 6e 74 26 20 61 65 2c |ent(TAEv|ent& ae,|
|00000460| 20 54 41 45 76 65 6e 74 | 26 20 72 65 70 6c 79 2c | TAEvent|& reply,|
|00000470| 20 6c 6f 6e 67 20 72 65 | 66 43 6f 6e 29 3b 0d 0d | long re|fCon);..|
|00000480| 2f 2f 0d 2f 2f 20 47 6c | 6f 62 61 6c 73 20 64 65 |//.// Gl|obals de|
|00000490| 66 69 6e 65 64 20 69 6e | 20 74 68 69 73 20 66 69 |fined in| this fi|
|000004a0| 6c 65 3a 0d 2f 2f 0d 52 | 65 63 74 09 09 09 09 09 |le:.//.R|ect.....|
|000004b0| 67 55 6e 69 76 65 72 73 | 65 52 65 63 74 3b 0d 52 |gUnivers|eRect;.R|
|000004c0| 67 6e 48 61 6e 64 6c 65 | 09 09 09 09 67 55 6e 69 |gnHandle|....gUni|
|000004d0| 76 65 72 73 65 52 67 6e | 20 3d 20 6e 69 6c 3b 0d |verseRgn| = nil;.|
|000004e0| 52 67 6e 48 61 6e 64 6c | 65 09 09 09 09 67 53 63 |RgnHandl|e....gSc|
|000004f0| 72 61 74 63 68 52 67 6e | 20 3d 20 6e 69 6c 3b 0d |ratchRgn| = nil;.|
|00000500| 47 72 61 66 50 74 72 09 | 09 09 09 09 67 57 69 6e |GrafPtr.|....gWin|
|00000510| 64 6f 77 4d 67 72 50 6f | 72 74 20 3d 20 6e 69 6c |dowMgrPo|rt = nil|
|00000520| 3b 0d 0d 53 79 73 45 6e | 76 52 65 63 09 09 09 09 |;..SysEn|vRec....|
|00000530| 67 54 68 69 73 4d 61 63 | 69 6e 74 6f 73 68 3b 0d |gThisMac|intosh;.|
|00000540| 42 6f 6f 6c 65 61 6e 09 | 09 09 09 09 67 48 61 73 |Boolean.|....gHas|
|00000550| 41 70 70 6c 65 45 76 65 | 6e 74 73 3b 0d 42 6f 6f |AppleEve|nts;.Boo|
|00000560| 6c 65 61 6e 09 09 09 09 | 09 67 41 70 70 6c 69 63 |lean....|.gApplic|
|00000570| 61 74 69 6f 6e 53 68 6f | 75 6c 64 51 75 69 74 20 |ationSho|uldQuit |
|00000580| 3d 20 66 61 6c 73 65 3b | 0d 0d 23 69 66 20 55 53 |= false;|..#if US|
|00000590| 45 53 52 4f 55 54 49 4e | 45 44 45 53 43 52 49 50 |ESROUTIN|EDESCRIP|
|000005a0| 54 4f 52 53 0d 09 73 74 | 61 74 69 63 20 52 6f 75 |TORS..st|atic Rou|
|000005b0| 74 69 6e 65 44 65 73 63 | 72 69 70 74 6f 72 20 67 |tineDesc|riptor g|
|000005c0| 51 75 69 74 41 70 70 6c | 69 63 61 74 69 6f 6e 48 |QuitAppl|icationH|
|000005d0| 61 6e 64 6c 65 72 52 44 | 09 3d 20 42 55 49 4c 44 |andlerRD|.= BUILD|
|000005e0| 5f 52 4f 55 54 49 4e 45 | 5f 44 45 53 43 52 49 50 |_ROUTINE|_DESCRIP|
|000005f0| 54 4f 52 28 75 70 70 41 | 45 45 76 65 6e 74 48 61 |TOR(uppA|EEventHa|
|00000600| 6e 64 6c 65 72 50 72 6f | 63 49 6e 66 6f 2c 20 51 |ndlerPro|cInfo, Q|
|00000610| 75 69 74 41 70 70 6c 69 | 63 61 74 69 6f 6e 45 76 |uitAppli|cationEv|
|00000620| 65 6e 74 29 3b 0d 09 73 | 74 61 74 69 63 20 52 6f |ent);..s|tatic Ro|
|00000630| 75 74 69 6e 65 44 65 73 | 63 72 69 70 74 6f 72 20 |utineDes|criptor |
|00000640| 67 4f 70 65 6e 41 70 70 | 6c 69 63 61 74 69 6f 6e |gOpenApp|lication|
|00000650| 48 61 6e 64 6c 65 72 52 | 44 09 3d 20 42 55 49 4c |HandlerR|D.= BUIL|
|00000660| 44 5f 52 4f 55 54 49 4e | 45 5f 44 45 53 43 52 49 |D_ROUTIN|E_DESCRI|
|00000670| 50 54 4f 52 28 75 70 70 | 41 45 45 76 65 6e 74 48 |PTOR(upp|AEEventH|
|00000680| 61 6e 64 6c 65 72 50 72 | 6f 63 49 6e 66 6f 2c 20 |andlerPr|ocInfo, |
|00000690| 4f 70 65 6e 41 70 70 6c | 69 63 61 74 69 6f 6e 45 |OpenAppl|icationE|
|000006a0| 76 65 6e 74 29 3b 0d 09 | 73 74 61 74 69 63 20 52 |vent);..|static R|
|000006b0| 6f 75 74 69 6e 65 44 65 | 73 63 72 69 70 74 6f 72 |outineDe|scriptor|
|000006c0| 20 67 4f 70 65 6e 44 6f | 63 75 6d 65 6e 74 48 61 | gOpenDo|cumentHa|
|000006d0| 6e 64 6c 65 72 52 44 09 | 09 3d 20 42 55 49 4c 44 |ndlerRD.|.= BUILD|
|000006e0| 5f 52 4f 55 54 49 4e 45 | 5f 44 45 53 43 52 49 50 |_ROUTINE|_DESCRIP|
|000006f0| 54 4f 52 28 75 70 70 41 | 45 45 76 65 6e 74 48 61 |TOR(uppA|EEventHa|
|00000700| 6e 64 6c 65 72 50 72 6f | 63 49 6e 66 6f 2c 20 4f |ndlerPro|cInfo, O|
|00000710| 70 65 6e 44 6f 63 75 6d | 65 6e 74 45 76 65 6e 74 |penDocum|entEvent|
|00000720| 29 3b 0d 23 65 6e 64 69 | 66 0d 0d 2f 2f 2d 2d 2d |);.#endi|f..//---|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 0d 2f 2f | 20 6d 61 69 6e 3a 20 0d |-----.//| main: .|
|00000790| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 76 6f 69 64 20 |--------|--.void |
|000007f0| 6d 61 69 6e 28 29 0d 7b | 0d 09 52 67 6e 48 61 6e |main().{|..RgnHan|
|00000800| 64 6c 65 09 09 6d 6f 75 | 73 65 52 65 67 69 6f 6e |dle..mou|seRegion|
|00000810| 3b 0d 09 41 70 70 46 69 | 6c 65 09 09 09 74 68 65 |;..AppFi|le...the|
|00000820| 46 69 6c 65 3b 0d 09 44 | 69 61 6c 6f 67 50 74 72 |File;..D|ialogPtr|
|00000830| 09 09 73 70 6c 61 73 68 | 3b 0d 09 73 68 6f 72 74 |..splash|;..short|
|00000840| 09 09 09 70 72 65 4c 6f | 61 64 46 69 6c 65 73 3b |...preLo|adFiles;|
|00000850| 0d 09 73 68 6f 72 74 09 | 09 09 6d 65 73 73 61 67 |..short.|..messag|
|00000860| 65 3b 0d 09 73 68 6f 72 | 74 09 09 09 69 3b 0d 09 |e;..shor|t...i;..|
|00000870| 4f 53 45 72 72 09 09 09 | 65 72 72 20 3d 20 6e 6f |OSErr...|err = no|
|00000880| 45 72 72 3b 0d 09 0d 09 | 2f 2f 0d 09 2f 2f 20 49 |Err;....|//..// I|
|00000890| 6e 69 74 69 61 6c 69 7a | 65 20 61 6c 6c 20 6f 66 |nitializ|e all of|
|000008a0| 20 74 68 65 20 54 6f 6f | 6c 42 6f 78 20 6d 61 6e | the Too|lBox man|
|000008b0| 61 67 65 72 73 2c 20 63 | 68 61 6e 67 65 20 74 68 |agers, c|hange th|
|000008c0| 65 20 63 75 72 73 6f 72 | 0d 09 2f 2f 20 73 68 61 |e cursor|..// sha|
|000008d0| 70 65 20 74 6f 20 61 20 | 77 61 74 63 68 20 61 6e |pe to a |watch an|
|000008e0| 64 20 64 69 73 70 6c 61 | 79 20 74 68 65 20 73 70 |d displa|y the sp|
|000008f0| 6c 61 73 68 20 73 63 72 | 65 65 6e 2e 0d 09 2f 2f |lash scr|een...//|
|00000900| 0d 09 49 6e 69 74 41 6c | 6c 28 29 3b 0d 09 43 68 |..InitAl|l();..Ch|
|00000910| 61 6e 67 65 43 75 72 73 | 6f 72 28 77 61 74 63 68 |angeCurs|or(watch|
|00000920| 43 75 72 73 6f 72 29 3b | 0d 09 0d 09 2f 2f 0d 09 |Cursor);|....//..|
|00000930| 2f 2f 20 45 76 65 72 79 | 20 68 69 67 68 2d 6c 65 |// Every| high-le|
|00000940| 76 65 6c 2d 65 76 65 6e | 74 2d 61 77 61 72 65 20 |vel-even|t-aware |
|00000950| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 6e 65 65 64 |applicat|ion need|
|00000960| 73 20 61 0d 09 2f 2f 20 | 71 75 69 74 2d 61 70 70 |s a..// |quit-app|
|00000970| 6c 69 63 61 74 69 6f 6e | 20 68 61 6e 64 6c 65 72 |lication| handler|
|00000980| 3b 20 6f 74 68 65 72 77 | 69 73 65 2c 20 69 74 20 |; otherw|ise, it |
|00000990| 77 6f 6e 27 74 20 71 75 | 69 74 0d 09 2f 2f 20 77 |won't qu|it..// w|
|000009a0| 68 65 6e 20 74 68 65 20 | 6d 61 63 68 69 6e 65 20 |hen the |machine |
|000009b0| 69 73 20 73 68 75 74 20 | 64 6f 77 6e 20 28 66 6f |is shut |down (fo|
|000009c0| 72 20 65 78 61 6d 70 6c | 65 29 0d 09 2f 2f 0d 09 |r exampl|e)..//..|
|000009d0| 2f 2f 20 54 68 69 73 20 | 61 70 70 6c 69 63 61 74 |// This |applicat|
|000009e0| 69 6f 6e 20 71 75 69 74 | 73 20 72 69 67 68 74 20 |ion quit|s right |
|000009f0| 61 77 61 79 2c 20 62 75 | 74 20 68 65 63 6b 2c 20 |away, bu|t heck, |
|00000a00| 77 65 20 6d 69 67 68 74 | 0d 09 2f 2f 20 61 73 20 |we might|..// as |
|00000a10| 77 65 6c 6c 20 6b 65 65 | 70 20 74 68 69 73 2e 0d |well kee|p this..|
|00000a20| 09 2f 2f 0d 23 69 66 20 | 55 53 45 53 52 4f 55 54 |.//.#if |USESROUT|
|00000a30| 49 4e 45 44 45 53 43 52 | 49 50 54 4f 52 53 0d 09 |INEDESCR|IPTORS..|
|00000a40| 41 45 49 6e 73 74 61 6c | 6c 45 76 65 6e 74 48 61 |AEInstal|lEventHa|
|00000a50| 6e 64 6c 65 72 28 6b 43 | 6f 72 65 45 76 65 6e 74 |ndler(kC|oreEvent|
|00000a60| 43 6c 61 73 73 2c 20 6b | 41 45 51 75 69 74 41 70 |Class, k|AEQuitAp|
|00000a70| 70 6c 69 63 61 74 69 6f | 6e 2c 20 26 67 51 75 69 |plicatio|n, &gQui|
|00000a80| 74 41 70 70 6c 69 63 61 | 74 69 6f 6e 48 61 6e 64 |tApplica|tionHand|
|00000a90| 6c 65 72 52 44 2c 20 30 | 2c 20 66 61 6c 73 65 29 |lerRD, 0|, false)|
|00000aa0| 3b 0d 23 65 6c 73 65 0d | 09 41 45 49 6e 73 74 61 |;.#else.|.AEInsta|
|00000ab0| 6c 6c 45 76 65 6e 74 48 | 61 6e 64 6c 65 72 28 6b |llEventH|andler(k|
|00000ac0| 43 6f 72 65 45 76 65 6e | 74 43 6c 61 73 73 2c 20 |CoreEven|tClass, |
|00000ad0| 6b 41 45 51 75 69 74 41 | 70 70 6c 69 63 61 74 69 |kAEQuitA|pplicati|
|00000ae0| 6f 6e 2c 20 28 41 45 45 | 76 65 6e 74 48 61 6e 64 |on, (AEE|ventHand|
|00000af0| 6c 65 72 50 72 6f 63 50 | 74 72 29 20 26 51 75 69 |lerProcP|tr) &Qui|
|00000b00| 74 41 70 70 6c 69 63 61 | 74 69 6f 6e 45 76 65 6e |tApplica|tionEven|
|00000b10| 74 2c 20 30 2c 20 66 61 | 6c 73 65 29 3b 0d 23 65 |t, 0, fa|lse);.#e|
|00000b20| 6e 64 69 66 0d 09 0d 09 | 2f 2f 0d 09 2f 2f 20 57 |ndif....|//..// W|
|00000b30| 65 20 64 65 66 69 6e 69 | 74 65 6c 79 20 6e 65 65 |e defini|tely nee|
|00000b40| 64 20 61 6e 20 6f 70 65 | 6e 20 61 70 70 6c 69 63 |d an ope|n applic|
|00000b50| 61 74 69 6f 6e 20 61 6e | 64 0d 09 2f 2f 20 61 6e |ation an|d..// an|
|00000b60| 20 6f 70 65 6e 20 64 6f | 63 75 6d 65 6e 74 20 68 | open do|cument h|
|00000b70| 61 6e 64 6c 65 72 0d 09 | 2f 2f 0d 23 69 66 20 55 |andler..|//.#if U|
|00000b80| 53 45 53 52 4f 55 54 49 | 4e 45 44 45 53 43 52 49 |SESROUTI|NEDESCRI|
|00000b90| 50 54 4f 52 53 0d 09 41 | 45 49 6e 73 74 61 6c 6c |PTORS..A|EInstall|
|00000ba0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 28 6b 43 6f |EventHan|dler(kCo|
|00000bb0| 72 65 45 76 65 6e 74 43 | 6c 61 73 73 2c 20 6b 41 |reEventC|lass, kA|
|00000bc0| 45 4f 70 65 6e 41 70 70 | 6c 69 63 61 74 69 6f 6e |EOpenApp|lication|
|00000bd0| 2c 20 26 67 4f 70 65 6e | 41 70 70 6c 69 63 61 74 |, &gOpen|Applicat|
|00000be0| 69 6f 6e 48 61 6e 64 6c | 65 72 52 44 2c 20 30 2c |ionHandl|erRD, 0,|
|00000bf0| 20 66 61 6c 73 65 29 3b | 0d 09 41 45 49 6e 73 74 | false);|..AEInst|
|00000c00| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|00000c10| 6b 43 6f 72 65 45 76 65 | 6e 74 43 6c 61 73 73 2c |kCoreEve|ntClass,|
|00000c20| 20 6b 41 45 4f 70 65 6e | 44 6f 63 75 6d 65 6e 74 | kAEOpen|Document|
|00000c30| 73 2c 20 26 67 4f 70 65 | 6e 44 6f 63 75 6d 65 6e |s, &gOpe|nDocumen|
|00000c40| 74 48 61 6e 64 6c 65 72 | 52 44 2c 20 30 2c 20 66 |tHandler|RD, 0, f|
|00000c50| 61 6c 73 65 29 3b 0d 23 | 65 6c 73 65 0d 09 41 45 |alse);.#|else..AE|
|00000c60| 49 6e 73 74 61 6c 6c 45 | 76 65 6e 74 48 61 6e 64 |InstallE|ventHand|
|00000c70| 6c 65 72 28 6b 43 6f 72 | 65 45 76 65 6e 74 43 6c |ler(kCor|eEventCl|
|00000c80| 61 73 73 2c 20 6b 41 45 | 4f 70 65 6e 41 70 70 6c |ass, kAE|OpenAppl|
|00000c90| 69 63 61 74 69 6f 6e 2c | 20 28 41 45 45 76 65 6e |ication,| (AEEven|
|00000ca0| 74 48 61 6e 64 6c 65 72 | 50 72 6f 63 50 74 72 29 |tHandler|ProcPtr)|
|00000cb0| 20 26 4f 70 65 6e 41 70 | 70 6c 69 63 61 74 69 6f | &OpenAp|plicatio|
|00000cc0| 6e 45 76 65 6e 74 2c 20 | 30 2c 20 66 61 6c 73 65 |nEvent, |0, false|
|00000cd0| 29 3b 0d 09 41 45 49 6e | 73 74 61 6c 6c 45 76 65 |);..AEIn|stallEve|
|00000ce0| 6e 74 48 61 6e 64 6c 65 | 72 28 6b 43 6f 72 65 45 |ntHandle|r(kCoreE|
|00000cf0| 76 65 6e 74 43 6c 61 73 | 73 2c 20 6b 41 45 4f 70 |ventClas|s, kAEOp|
|00000d00| 65 6e 44 6f 63 75 6d 65 | 6e 74 73 2c 20 28 41 45 |enDocume|nts, (AE|
|00000d10| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 50 72 6f 63 |EventHan|dlerProc|
|00000d20| 50 74 72 29 20 26 4f 70 | 65 6e 44 6f 63 75 6d 65 |Ptr) &Op|enDocume|
|00000d30| 6e 74 45 76 65 6e 74 2c | 20 30 2c 20 66 61 6c 73 |ntEvent,| 0, fals|
|00000d40| 65 29 3b 0d 23 65 6e 64 | 69 66 0d 09 0d 09 2f 2f |e);.#end|if....//|
|00000d50| 0d 09 2f 2f 20 53 65 74 | 20 74 68 65 20 63 75 72 |..// Set| the cur|
|00000d60| 73 6f 72 20 62 61 63 6b | 20 74 6f 20 61 6e 20 61 |sor back| to an a|
|00000d70| 72 72 6f 77 0d 09 2f 2f | 0d 09 49 6e 69 74 43 75 |rrow..//|..InitCu|
|00000d80| 72 73 6f 72 28 29 3b 0d | 09 0d 09 2f 2f 0d 09 2f |rsor();.|...//../|
|00000d90| 2f 20 53 65 74 20 75 70 | 20 74 68 65 20 69 6e 69 |/ Set up| the ini|
|00000da0| 74 69 61 6c 20 6d 6f 75 | 73 65 20 72 65 67 69 6f |tial mou|se regio|
|00000db0| 6e 0d 09 2f 2f 0d 09 6d | 6f 75 73 65 52 65 67 69 |n..//..m|ouseRegi|
|00000dc0| 6f 6e 20 3d 20 4e 65 77 | 52 67 6e 28 29 3b 0d 09 |on = New|Rgn();..|
|00000dd0| 0d 09 2f 2f 0d 09 2f 2f | 20 53 65 74 20 75 70 20 |..//..//| Set up |
|00000de0| 61 20 66 61 69 6c 75 72 | 65 20 68 61 6e 64 6c 65 |a failur|e handle|
|00000df0| 72 20 66 6f 72 20 66 61 | 69 6c 75 72 65 73 20 74 |r for fa|ilures t|
|00000e00| 68 61 74 20 61 72 65 20 | 6e 6f 74 0d 09 2f 2f 20 |hat are |not..// |
|00000e10| 74 72 61 70 70 65 64 20 | 65 6c 73 65 77 68 65 72 |trapped |elsewher|
|00000e20| 65 0d 09 2f 2f 0d 09 54 | 72 79 0d 09 7b 0d 09 09 |e..//..T|ry..{...|
|00000e30| 2f 2f 0d 09 09 2f 2f 20 | 4c 69 76 65 20 68 65 72 |//...// |Live her|
|00000e40| 65 20 75 6e 74 69 6c 20 | 74 68 65 20 27 67 41 70 |e until |the 'gAp|
|00000e50| 70 6c 69 63 61 74 69 6f | 6e 53 68 6f 75 6c 64 51 |plicatio|nShouldQ|
|00000e60| 75 69 74 27 20 66 6c 61 | 67 0d 09 09 2f 2f 20 62 |uit' fla|g...// b|
|00000e70| 65 63 6f 6d 65 73 20 74 | 72 75 65 0d 09 09 2f 2f |ecomes t|rue...//|
|00000e80| 0d 09 09 77 68 69 6c 65 | 28 67 41 70 70 6c 69 63 |...while|(gApplic|
|00000e90| 61 74 69 6f 6e 53 68 6f | 75 6c 64 51 75 69 74 20 |ationSho|uldQuit |
|00000ea0| 3d 3d 20 66 61 6c 73 65 | 29 0d 09 09 09 48 61 6e |== false|)....Han|
|00000eb0| 64 6c 65 45 76 65 6e 74 | 73 28 6d 6f 75 73 65 52 |dleEvent|s(mouseR|
|00000ec0| 65 67 69 6f 6e 29 3b 0d | 09 7d 0d 09 43 61 74 63 |egion);.|.}..Catc|
|00000ed0| 68 28 65 72 72 29 0d 09 | 7b 0d 09 09 2f 2f 0d 09 |h(err)..|{...//..|
|00000ee0| 09 2f 2f 20 57 65 20 64 | 6f 6e 27 74 20 65 78 70 |.// We d|on't exp|
|00000ef0| 65 63 74 20 74 6f 20 65 | 76 65 72 20 67 65 74 20 |ect to e|ver get |
|00000f00| 68 65 72 65 2e 2e 2e 0d | 09 09 2f 2f 0d 09 7d 0d |here....|..//..}.|
|00000f10| 7d 20 2f 2f 20 6d 61 69 | 6e 20 0d 0d 2f 2f 2d 2d |} // mai|n ..//--|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f70| 2d 2d 2d 2d 2d 2d 0d 2f | 2f 20 49 6e 69 74 41 6c |------./|/ InitAl|
|00000f80| 6c 3a 20 0d 2f 2f 20 0d | 2f 2f 20 49 6e 69 74 69 |l: .// .|// Initi|
|00000f90| 61 6c 69 7a 65 20 76 61 | 72 69 6f 75 73 20 4d 61 |alize va|rious Ma|
|00000fa0| 63 69 6e 74 6f 73 68 20 | 6d 61 6e 61 67 65 72 73 |cintosh |managers|
|00000fb0| 0d 2f 2f 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.//-----|--------|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 76 6f 69 64 |--------|---.void|
|00001010| 20 49 6e 69 74 41 6c 6c | 28 29 0d 7b 0d 09 4f 53 | InitAll|().{..OS|
|00001020| 45 72 72 09 74 68 65 45 | 72 72 3b 0d 09 6c 6f 6e |Err.theE|rr;..lon|
|00001030| 67 09 68 65 61 70 53 70 | 61 63 65 3b 0d 09 50 74 |g.heapSp|ace;..Pt|
|00001040| 72 09 09 61 70 70 4c 69 | 6d 69 74 3b 0d 09 54 48 |r..appLi|mit;..TH|
|00001050| 7a 09 09 61 70 70 42 61 | 73 65 3b 0d 09 6c 6f 6e |z..appBa|se;..lon|
|00001060| 67 09 67 65 73 74 61 6c | 74 52 65 73 75 6c 74 3b |g.gestal|tResult;|
|00001070| 0d 09 73 68 6f 72 74 09 | 63 61 6c 6c 73 54 6f 4d |..short.|callsToM|
|00001080| 6f 72 65 4d 61 73 74 65 | 72 73 20 3d 20 31 30 3b |oreMaste|rs = 10;|
|00001090| 0d 09 0d 09 61 70 70 42 | 61 73 65 20 3d 20 41 70 |....appB|ase = Ap|
|000010a0| 70 6c 69 63 5a 6f 6e 65 | 28 29 3b 0d 09 61 70 70 |plicZone|();..app|
|000010b0| 4c 69 6d 69 74 20 3d 20 | 47 65 74 41 70 70 6c 4c |Limit = |GetApplL|
|000010c0| 69 6d 69 74 28 29 3b 0d | 09 68 65 61 70 53 70 61 |imit();.|.heapSpa|
|000010d0| 63 65 20 3d 20 46 72 65 | 65 4d 65 6d 28 29 3b 0d |ce = Fre|eMem();.|
|000010e0| 09 4d 61 78 41 70 70 6c | 5a 6f 6e 65 28 29 3b 0d |.MaxAppl|Zone();.|
|000010f0| 09 61 70 70 4c 69 6d 69 | 74 20 3d 20 47 65 74 41 |.appLimi|t = GetA|
|00001100| 70 70 6c 4c 69 6d 69 74 | 28 29 3b 0d 09 68 65 61 |pplLimit|();..hea|
|00001110| 70 53 70 61 63 65 20 3d | 20 46 72 65 65 4d 65 6d |pSpace =| FreeMem|
|00001120| 28 29 3b 0d 09 77 68 69 | 6c 65 28 20 63 61 6c 6c |();..whi|le( call|
|00001130| 73 54 6f 4d 6f 72 65 4d | 61 73 74 65 72 73 2d 2d |sToMoreM|asters--|
|00001140| 20 29 0d 09 09 4d 6f 72 | 65 4d 61 73 74 65 72 73 | )...Mor|eMasters|
|00001150| 28 29 3b 0d 09 0d 09 49 | 6e 69 74 47 72 61 66 28 |();....I|nitGraf(|
|00001160| 26 71 64 2e 74 68 65 50 | 6f 72 74 29 3b 0d 09 49 |&qd.theP|ort);..I|
|00001170| 6e 69 74 46 6f 6e 74 73 | 28 29 3b 0d 09 46 6c 75 |nitFonts|();..Flu|
|00001180| 73 68 45 76 65 6e 74 73 | 28 65 76 65 72 79 45 76 |shEvents|(everyEv|
|00001190| 65 6e 74 2c 20 30 29 3b | 0d 09 49 6e 69 74 57 69 |ent, 0);|..InitWi|
|000011a0| 6e 64 6f 77 73 28 29 3b | 0d 09 49 6e 69 74 4d 65 |ndows();|..InitMe|
|000011b0| 6e 75 73 28 29 3b 0d 09 | 54 45 49 6e 69 74 28 29 |nus();..|TEInit()|
|000011c0| 3b 0d 09 49 6e 69 74 44 | 69 61 6c 6f 67 73 28 30 |;..InitD|ialogs(0|
|000011d0| 4c 29 3b 0d 09 0d 09 2f | 2f 0d 09 2f 2f 20 47 65 |L);..../|/..// Ge|
|000011e0| 74 20 74 68 65 20 53 79 | 73 45 6e 76 69 72 6f 6e |t the Sy|sEnviron|
|000011f0| 73 20 72 65 63 6f 72 64 | 0d 09 2f 2f 0d 09 53 79 |s record|..//..Sy|
|00001200| 73 45 6e 76 69 72 6f 6e | 73 28 20 31 2c 20 26 67 |sEnviron|s( 1, &g|
|00001210| 54 68 69 73 4d 61 63 69 | 6e 74 6f 73 68 20 29 3b |ThisMaci|ntosh );|
|00001220| 0d 0d 09 2f 2f 0d 09 2f | 2f 20 43 68 65 63 6b 20 |...//../|/ Check |
|00001230| 74 6f 20 73 65 65 20 69 | 66 20 41 70 70 6c 65 45 |to see i|f AppleE|
|00001240| 76 65 6e 74 73 20 61 72 | 65 20 61 76 61 69 6c 61 |vents ar|e availa|
|00001250| 62 6c 65 0d 09 2f 2f 0d | 09 74 68 65 45 72 72 20 |ble..//.|.theErr |
|00001260| 3d 20 47 65 73 74 61 6c | 74 28 20 67 65 73 74 61 |= Gestal|t( gesta|
|00001270| 6c 74 41 70 70 6c 65 45 | 76 65 6e 74 73 41 74 74 |ltAppleE|ventsAtt|
|00001280| 72 2c 20 26 67 65 73 74 | 61 6c 74 52 65 73 75 6c |r, &gest|altResul|
|00001290| 74 20 29 3b 0d 09 67 48 | 61 73 41 70 70 6c 65 45 |t );..gH|asAppleE|
|000012a0| 76 65 6e 74 73 20 3d 20 | 28 20 28 74 68 65 45 72 |vents = |( (theEr|
|000012b0| 72 20 3d 3d 20 6e 6f 45 | 72 72 29 20 26 26 20 28 |r == noE|rr) && (|
|000012c0| 28 67 65 73 74 61 6c 74 | 52 65 73 75 6c 74 20 26 |(gestalt|Result &|
|000012d0| 20 28 31 4c 20 3c 3c 20 | 67 65 73 74 61 6c 74 41 | (1L << |gestaltA|
|000012e0| 70 70 6c 65 45 76 65 6e | 74 73 50 72 65 73 65 6e |ppleEven|tsPresen|
|000012f0| 74 29 29 20 21 3d 20 30 | 29 20 29 3b 0d 09 0d 09 |t)) != 0|) );....|
|00001300| 2f 2f 0d 09 2f 2f 20 53 | 65 74 20 61 20 67 6c 6f |//..// S|et a glo|
|00001310| 62 61 6c 20 72 65 63 74 | 61 6e 67 6c 65 20 74 6f |bal rect|angle to|
|00001320| 20 68 6f 6c 64 20 74 68 | 65 20 65 78 74 65 6e 74 | hold th|e extent|
|00001330| 20 6f 66 20 51 75 69 63 | 6b 44 72 61 77 20 77 6f | of Quic|kDraw wo|
|00001340| 72 6b 73 70 61 63 65 0d | 09 2f 2f 20 28 4e 6f 74 |rkspace.|.// (Not|
|00001350| 65 3a 20 20 51 75 69 63 | 6b 44 72 61 77 20 63 6f |e:  Quic|kDraw co|
|00001360| 6f 72 64 69 6e 61 74 65 | 73 20 72 61 6e 67 65 20 |ordinate|s range |
|00001370| 66 72 6f 6d 20 2b 2d 33 | 32 37 36 37 2c 20 62 75 |from +-3|2767, bu|
|00001380| 74 20 74 68 65 72 65 0d | 09 2f 2f 20 20 61 72 65 |t there.|.//  are|
|00001390| 20 62 75 67 73 20 69 6e | 20 51 75 69 63 6b 44 72 | bugs in| QuickDr|
|000013a0| 61 77 20 74 68 61 74 20 | 6d 61 6b 65 20 69 74 20 |aw that |make it |
|000013b0| 69 6e 61 64 76 69 73 61 | 62 6c 65 20 74 6f 20 67 |inadvisa|ble to g|
|000013c0| 6f 20 62 65 79 6f 6e 64 | 0d 09 2f 2f 20 20 2b 2d |o beyond|..//  +-|
|000013d0| 31 36 30 30 30 20 6f 72 | 20 73 6f 2e 29 0d 09 2f |16000 or| so.)../|
|000013e0| 2f 0d 09 53 65 74 52 65 | 63 74 28 26 67 55 6e 69 |/..SetRe|ct(&gUni|
|000013f0| 76 65 72 73 65 52 65 63 | 74 2c 2d 31 36 30 30 30 |verseRec|t,-16000|
|00001400| 2c 2d 31 36 30 30 30 2c | 31 36 30 30 30 2c 31 36 |,-16000,|16000,16|
|00001410| 30 30 30 29 3b 0d 09 67 | 55 6e 69 76 65 72 73 65 |000);..g|Universe|
|00001420| 52 67 6e 20 3d 20 4e 65 | 77 52 67 6e 28 29 3b 0d |Rgn = Ne|wRgn();.|
|00001430| 09 52 65 63 74 52 67 6e | 28 67 55 6e 69 76 65 72 |.RectRgn|(gUniver|
|00001440| 73 65 52 67 6e 2c 20 26 | 67 55 6e 69 76 65 72 73 |seRgn, &|gUnivers|
|00001450| 65 52 65 63 74 29 3b 0d | 09 67 53 63 72 61 74 63 |eRect);.|.gScratc|
|00001460| 68 52 67 6e 20 3d 20 4e | 65 77 52 67 6e 28 29 3b |hRgn = N|ewRgn();|
|00001470| 0d 09 47 65 74 50 6f 72 | 74 28 26 67 57 69 6e 64 |..GetPor|t(&gWind|
|00001480| 6f 77 4d 67 72 50 6f 72 | 74 29 3b 0d 7d 20 2f 2f |owMgrPor|t);.} //|
|00001490| 20 49 6e 69 74 41 6c 6c | 20 0d 0d 2f 2f 2d 2d 2d | InitAll| ..//---|
|000014a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014f0| 2d 2d 2d 2d 2d 0d 2f 2f | 20 45 78 69 74 50 72 6f |-----.//| ExitPro|
|00001500| 67 72 61 6d 3a 20 0d 2f | 2f 2d 2d 2d 2d 2d 2d 2d |gram: ./|/-------|
|00001510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001560| 2d 0d 4f 53 45 72 72 20 | 45 78 69 74 50 72 6f 67 |-.OSErr |ExitProg|
|00001570| 72 61 6d 28 43 57 69 6e | 64 6f 77 50 74 72 20 77 |ram(CWin|dowPtr w|
|00001580| 69 6e 64 6f 77 2c 20 73 | 68 6f 72 74 20 69 74 65 |indow, s|hort ite|
|00001590| 6d 29 0d 7b 0d 09 2f 2f | 0d 09 2f 2f 20 41 20 22 |m).{..//|..// A "|
|000015a0| 72 65 61 6c 22 20 70 72 | 6f 67 72 61 6d 20 77 6f |real" pr|ogram wo|
|000015b0| 75 6c 64 20 74 72 79 20 | 74 6f 20 63 6c 6f 73 65 |uld try |to close|
|000015c0| 20 61 6c 6c 20 6f 66 20 | 69 74 73 20 77 69 6e 64 | all of |its wind|
|000015d0| 6f 77 73 0d 09 2f 2f 20 | 66 69 72 73 74 20 28 67 |ows..// |first (g|
|000015e0| 69 76 65 20 74 68 65 20 | 75 73 65 72 20 61 20 63 |ive the |user a c|
|000015f0| 68 61 6e 63 65 20 74 6f | 20 63 61 6e 63 65 6c 29 |hance to| cancel)|
|00001600| 0d 09 2f 2f 0d 09 67 41 | 70 70 6c 69 63 61 74 69 |..//..gA|pplicati|
|00001610| 6f 6e 53 68 6f 75 6c 64 | 51 75 69 74 20 3d 20 74 |onShould|Quit = t|
|00001620| 72 75 65 3b 0d 09 0d 09 | 72 65 74 75 72 6e 20 6e |rue;....|return n|
|00001630| 6f 45 72 72 3b 0d 7d 20 | 2f 2f 20 45 78 69 74 50 |oErr;.} |// ExitP|
|00001640| 72 6f 67 72 61 6d 20 0d | 0d 2f 2f 2d 2d 2d 2d 2d |rogram .|.//-----|
|00001650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016a0| 2d 2d 2d 0d 2f 2f 20 51 | 75 69 74 41 70 70 6c 69 |---.// Q|uitAppli|
|000016b0| 63 61 74 69 6f 6e 45 76 | 65 6e 74 3a 20 0d 2f 2f |cationEv|ent: .//|
|000016c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001710| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 70 61 73 63 61 6c 20 |--------|.pascal |
|00001720| 4f 53 45 72 72 20 51 75 | 69 74 41 70 70 6c 69 63 |OSErr Qu|itApplic|
|00001730| 61 74 69 6f 6e 45 76 65 | 6e 74 28 54 41 45 76 65 |ationEve|nt(TAEve|
|00001740| 6e 74 26 20 61 65 2c 20 | 54 41 45 76 65 6e 74 26 |nt& ae, |TAEvent&|
|00001750| 20 72 65 70 6c 79 2c 20 | 6c 6f 6e 67 20 72 65 66 | reply, |long ref|
|00001760| 43 6f 6e 29 0d 7b 0d 09 | 2f 2f 0d 09 2f 2f 20 59 |Con).{..|//..// Y|
|00001770| 6f 75 20 73 68 6f 75 6c | 64 20 6e 65 76 65 72 20 |ou shoul|d never |
|00001780| 63 61 6c 6c 20 45 78 69 | 74 54 6f 53 68 65 6c 6c |call Exi|tToShell|
|00001790| 20 66 72 6f 6d 20 61 6e | 20 41 70 70 6c 65 45 76 | from an| AppleEv|
|000017a0| 65 6e 74 20 68 61 6e 64 | 6c 65 72 0d 09 2f 2f 0d |ent hand|ler..//.|
|000017b0| 09 67 41 70 70 6c 69 63 | 61 74 69 6f 6e 53 68 6f |.gApplic|ationSho|
|000017c0| 75 6c 64 51 75 69 74 20 | 3d 20 74 72 75 65 3b 0d |uldQuit |= true;.|
|000017d0| 09 0d 09 72 65 74 75 72 | 6e 20 6e 6f 45 72 72 3b |...retur|n noErr;|
|000017e0| 0d 7d 20 2f 2f 20 51 75 | 69 74 41 70 70 6c 69 63 |.} // Qu|itApplic|
|000017f0| 61 74 69 6f 6e 45 76 65 | 6e 74 0d 0d 2f 2f 2d 2d |ationEve|nt..//--|
|00001800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001850| 2d 2d 2d 2d 2d 2d 0d 2f | 2f 20 4d 61 6b 65 41 6e |------./|/ MakeAn|
|00001860| 6f 74 68 65 72 4e 61 6d | 65 0d 2f 2f 2d 2d 2d 2d |otherNam|e.//----|
|00001870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018c0| 2d 2d 2d 2d 0d 76 6f 69 | 64 20 4d 61 6b 65 41 6e |----.voi|d MakeAn|
|000018d0| 6f 74 68 65 72 4e 61 6d | 65 28 46 53 53 70 65 63 |otherNam|e(FSSpec|
|000018e0| 2a 20 6e 65 77 44 6f 63 | 75 6d 65 6e 74 29 0d 7b |* newDoc|ument).{|
|000018f0| 0d 09 73 68 6f 72 74 20 | 6c 65 6e 67 74 68 20 3d |..short |length =|
|00001900| 20 6e 65 77 44 6f 63 75 | 6d 65 6e 74 2d 3e 6e 61 | newDocu|ment->na|
|00001910| 6d 65 5b 30 5d 3b 0d 09 | 75 6e 73 69 67 6e 65 64 |me[0];..|unsigned|
|00001920| 20 63 68 61 72 2a 20 6c | 61 73 74 43 68 61 72 20 | char* l|astChar |
|00001930| 3d 20 6e 65 77 44 6f 63 | 75 6d 65 6e 74 2d 3e 6e |= newDoc|ument->n|
|00001940| 61 6d 65 20 2b 20 6c 65 | 6e 67 74 68 3b 0d 09 6c |ame + le|ngth;..l|
|00001950| 6f 6e 67 20 6e 75 6d 62 | 65 72 20 3d 20 30 3b 0d |ong numb|er = 0;.|
|00001960| 09 0d 09 2f 2f 0d 09 2f | 2f 20 46 69 72 73 74 20 |...//../|/ First |
|00001970| 65 78 74 72 61 63 74 20 | 74 68 65 20 6e 75 6d 62 |extract |the numb|
|00001980| 65 72 20 6f 66 66 20 74 | 68 65 20 65 6e 64 20 6f |er off t|he end o|
|00001990| 66 20 74 68 65 20 6e 61 | 6d 65 2e 0d 09 2f 2f 20 |f the na|me...// |
|000019a0| 4e 6f 74 20 5f 74 6f 6f | 5f 20 69 6e 74 65 72 6e |Not _too|_ intern|
|000019b0| 61 74 69 6f 6e 61 6c 20 | 66 72 69 65 6e 64 6c 79 |ational |friendly|
|000019c0| 2c 20 62 75 74 20 68 65 | 79 2e 2e 2e 0d 09 2f 2f |, but he|y.....//|
|000019d0| 0d 09 77 68 69 6c 65 28 | 28 2a 6c 61 73 74 43 68 |..while(|(*lastCh|
|000019e0| 61 72 20 3e 3d 20 27 30 | 27 29 20 26 26 20 28 2a |ar >= '0|') && (*|
|000019f0| 6c 61 73 74 43 68 61 72 | 20 3c 3d 20 27 39 27 29 |lastChar| <= '9')|
|00001a00| 20 26 26 20 28 6c 65 6e | 67 74 68 20 3e 20 30 29 | && (len|gth > 0)|
|00001a10| 29 0d 09 7b 0d 09 09 6e | 75 6d 62 65 72 20 3d 20 |)..{...n|umber = |
|00001a20| 28 6e 75 6d 62 65 72 20 | 2a 20 31 30 29 20 2b 20 |(number |* 10) + |
|00001a30| 28 2a 6c 61 73 74 43 68 | 61 72 20 2d 20 27 30 27 |(*lastCh|ar - '0'|
|00001a40| 29 3b 0d 09 09 2d 2d 6c | 65 6e 67 74 68 3b 0d 09 |);...--l|ength;..|
|00001a50| 09 2d 2d 6c 61 73 74 43 | 68 61 72 3b 0d 09 7d 0d |.--lastC|har;..}.|
|00001a60| 09 0d 09 2f 2f 0d 09 2f | 2f 20 41 6c 73 6f 20 73 |...//../|/ Also s|
|00001a70| 74 72 69 70 20 6f 66 66 | 20 74 72 61 69 6c 69 6e |trip off| trailin|
|00001a80| 67 20 73 70 61 63 65 73 | 0d 09 2f 2f 0d 09 77 68 |g spaces|..//..wh|
|00001a90| 69 6c 65 28 28 2a 6c 61 | 73 74 43 68 61 72 20 3d |ile((*la|stChar =|
|00001aa0| 3d 20 27 20 27 29 20 26 | 26 20 28 6c 65 6e 67 74 |= ' ') &|& (lengt|
|00001ab0| 68 20 3e 20 30 29 29 0d | 09 7b 0d 09 09 2d 2d 6c |h > 0)).|.{...--l|
|00001ac0| 65 6e 67 74 68 3b 0d 09 | 09 2d 2d 6c 61 73 74 43 |ength;..|.--lastC|
|00001ad0| 68 61 72 3b 0d 09 7d 0d | 09 0d 09 2f 2f 0d 09 2f |har;..}.|...//../|
|00001ae0| 2f 20 41 64 64 20 6f 6e | 65 20 74 6f 20 74 68 65 |/ Add on|e to the|
|00001af0| 20 6e 75 6d 62 65 72 2c | 20 74 68 65 6e 20 61 70 | number,| then ap|
|00001b00| 70 65 6e 64 20 69 74 20 | 6f 6e 74 6f 20 74 68 65 |pend it |onto the|
|00001b10| 20 65 6e 64 0d 09 2f 2f | 20 77 69 74 68 20 61 20 | end..//| with a |
|00001b20| 73 70 61 63 65 2e 0d 09 | 2f 2f 0d 09 2b 2b 6e 75 |space...|//..++nu|
|00001b30| 6d 62 65 72 3b 0d 09 2b | 2b 6c 61 73 74 43 68 61 |mber;..+|+lastCha|
|00001b40| 72 3b 0d 09 2b 2b 6c 65 | 6e 67 74 68 3b 0d 09 2a |r;..++le|ngth;..*|
|00001b50| 6c 61 73 74 43 68 61 72 | 20 3d 20 27 20 27 3b 0d |lastChar| = ' ';.|
|00001b60| 09 0d 09 2f 2f 0d 09 2f | 2f 20 49 74 20 77 6f 75 |...//../|/ It wou|
|00001b70| 6c 64 20 62 65 20 61 20 | 67 72 61 6e 64 20 69 64 |ld be a |grand id|
|00001b80| 65 61 20 74 6f 20 63 68 | 65 63 6b 20 74 6f 20 73 |ea to ch|eck to s|
|00001b90| 65 65 20 69 66 20 77 65 | 0d 09 2f 2f 20 77 65 72 |ee if we|..// wer|
|00001ba0| 65 20 61 62 6f 75 74 20 | 74 6f 20 6f 76 65 72 77 |e about |to overw|
|00001bb0| 72 69 74 65 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |rite the| end of |
|00001bc0| 74 68 65 20 73 74 72 69 | 6e 67 20 68 65 72 65 2c |the stri|ng here,|
|00001bd0| 0d 09 2f 2f 20 62 75 74 | 20 77 65 20 64 6f 6e 27 |..// but| we don'|
|00001be0| 74 0d 09 2f 2f 0d 09 2b | 2b 6c 61 73 74 43 68 61 |t..//..+|+lastCha|
|00001bf0| 72 3b 0d 09 6e 65 77 44 | 6f 63 75 6d 65 6e 74 2d |r;..newD|ocument-|
|00001c00| 3e 6e 61 6d 65 5b 30 5d | 20 3d 20 6c 65 6e 67 74 |>name[0]| = lengt|
|00001c10| 68 3b 0d 0d 09 53 74 72 | 32 35 35 20 6e 75 6d 62 |h;...Str|255 numb|
|00001c20| 65 72 53 74 72 69 6e 67 | 3b 0d 09 4e 75 6d 54 6f |erString|;..NumTo|
|00001c30| 53 74 72 69 6e 67 28 6e | 75 6d 62 65 72 2c 20 6e |String(n|umber, n|
|00001c40| 75 6d 62 65 72 53 74 72 | 69 6e 67 29 3b 0d 09 70 |umberStr|ing);..p|
|00001c50| 73 74 72 63 61 74 28 6e | 65 77 44 6f 63 75 6d 65 |strcat(n|ewDocume|
|00001c60| 6e 74 2d 3e 6e 61 6d 65 | 2c 20 6e 75 6d 62 65 72 |nt->name|, number|
|00001c70| 53 74 72 69 6e 67 29 3b | 0d 7d 20 2f 2f 20 4d 61 |String);|.} // Ma|
|00001c80| 6b 65 41 6e 6f 74 68 65 | 72 4e 61 6d 65 0d 0d 2f |keAnothe|rName../|
|00001c90| 2f 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/-------|--------|
|00001ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2f 2f 20 4f 70 65 |--------|-.// Ope|
|00001cf0| 6e 41 70 70 6c 69 63 61 | 74 69 6f 6e 45 76 65 6e |nApplica|tionEven|
|00001d00| 74 3a 20 0d 2f 2f 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |t: .//--|--------|
|00001d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 70 |--------|------.p|
|00001d60| 61 73 63 61 6c 20 4f 53 | 45 72 72 20 4f 70 65 6e |ascal OS|Err Open|
|00001d70| 41 70 70 6c 69 63 61 74 | 69 6f 6e 45 76 65 6e 74 |Applicat|ionEvent|
|00001d80| 28 54 41 45 76 65 6e 74 | 26 20 61 65 2c 20 54 41 |(TAEvent|& ae, TA|
|00001d90| 45 76 65 6e 74 26 20 72 | 65 70 6c 79 2c 20 6c 6f |Event& r|eply, lo|
|00001da0| 6e 67 20 72 65 66 43 6f | 6e 29 0d 7b 0d 09 46 53 |ng refCo|n).{..FS|
|00001db0| 53 70 65 63 20 6e 65 77 | 44 6f 63 75 6d 65 6e 74 |Spec new|Document|
|00001dc0| 3b 0d 09 4f 53 45 72 72 | 20 65 72 72 20 3d 20 6e |;..OSErr| err = n|
|00001dd0| 6f 45 72 72 3b 0d 09 73 | 68 6f 72 74 20 72 65 66 |oErr;..s|hort ref|
|00001de0| 4e 75 6d 20 3d 20 2d 31 | 3b 0d 09 42 6f 6f 6c 65 |Num = -1|;..Boole|
|00001df0| 61 6e 20 66 69 6c 65 4f | 70 65 6e 20 3d 20 66 61 |an fileO|pen = fa|
|00001e00| 6c 73 65 3b 0d 09 0d 09 | 54 72 79 0d 09 7b 0d 09 |lse;....|Try..{..|
|00001e10| 09 46 53 4d 61 6b 65 46 | 53 53 70 65 63 28 30 2c |.FSMakeF|SSpec(0,|
|00001e20| 20 30 2c 20 22 5c 70 55 | 6e 74 69 74 6c 65 64 20 | 0, "\pU|ntitled |
|00001e30| 57 69 6e 64 6f 77 20 53 | 65 74 20 31 22 2c 20 26 |Window S|et 1", &|
|00001e40| 6e 65 77 44 6f 63 75 6d | 65 6e 74 29 3b 0d 0d 09 |newDocum|ent);...|
|00001e50| 09 2f 2f 0d 09 09 2f 2f | 20 4f 6e 20 61 6e 20 6f |.//...//| On an o|
|00001e60| 70 65 6e 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |pen appl|ication |
|00001e70| 65 76 65 6e 74 2c 20 77 | 65 20 74 61 6b 65 20 61 |event, w|e take a|
|00001e80| 20 73 6e 61 70 73 68 6f | 74 20 6f 66 20 61 6c 6c | snapsho|t of all|
|00001e90| 0d 09 09 2f 2f 20 6f 66 | 20 74 68 65 20 6f 70 65 |...// of| the ope|
|00001ea0| 6e 20 46 69 6e 64 65 72 | 20 77 69 6e 64 6f 77 73 |n Finder| windows|
|00001eb0| 20 61 6e 64 20 72 65 63 | 6f 72 64 20 74 68 65 69 | and rec|ord thei|
|00001ec0| 72 20 70 6f 73 69 74 69 | 6f 6e 73 0d 09 09 2f 2f |r positi|ons...//|
|00001ed0| 0d 09 09 65 72 72 20 3d | 20 64 75 70 46 4e 45 72 |...err =| dupFNEr|
|00001ee0| 72 3b 0d 09 09 77 68 69 | 6c 65 28 65 72 72 20 3d |r;...whi|le(err =|
|00001ef0| 3d 20 64 75 70 46 4e 45 | 72 72 29 0d 09 09 7b 0d |= dupFNE|rr)...{.|
|00001f00| 09 09 09 65 72 72 20 3d | 20 46 53 70 43 72 65 61 |...err =| FSpCrea|
|00001f10| 74 65 28 26 6e 65 77 44 | 6f 63 75 6d 65 6e 74 2c |te(&newD|ocument,|
|00001f20| 20 27 46 53 4e 50 27 2c | 20 27 46 53 4e 50 27 2c | 'FSNP',| 'FSNP',|
|00001f30| 20 69 75 53 79 73 74 65 | 6d 53 63 72 69 70 74 29 | iuSyste|mScript)|
|00001f40| 3b 0d 09 09 09 69 66 28 | 65 72 72 20 3d 3d 20 64 |;....if(|err == d|
|00001f50| 75 70 46 4e 45 72 72 29 | 0d 09 09 09 7b 0d 09 09 |upFNErr)|....{...|
|00001f60| 09 09 4d 61 6b 65 41 6e | 6f 74 68 65 72 4e 61 6d |..MakeAn|otherNam|
|00001f70| 65 28 26 6e 65 77 44 6f | 63 75 6d 65 6e 74 29 3b |e(&newDo|cument);|
|00001f80| 0d 09 09 09 7d 0d 09 09 | 7d 0d 09 09 46 61 69 6c |....}...|}...Fail|
|00001f90| 45 72 72 28 65 72 72 29 | 3b 0d 09 09 48 43 72 65 |Err(err)|;...HCre|
|00001fa0| 61 74 65 52 65 73 46 69 | 6c 65 28 6e 65 77 44 6f |ateResFi|le(newDo|
|00001fb0| 63 75 6d 65 6e 74 2e 76 | 52 65 66 4e 75 6d 2c 20 |cument.v|RefNum, |
|00001fc0| 6e 65 77 44 6f 63 75 6d | 65 6e 74 2e 70 61 72 49 |newDocum|ent.parI|
|00001fd0| 44 2c 20 6e 65 77 44 6f | 63 75 6d 65 6e 74 2e 6e |D, newDo|cument.n|
|00001fe0| 61 6d 65 29 3b 0d 09 09 | 46 61 69 6c 52 65 73 45 |ame);...|FailResE|
|00001ff0| 72 72 6f 72 28 29 3b 0d | 09 09 72 65 66 4e 75 6d |rror();.|..refNum|
|00002000| 20 3d 20 46 53 70 4f 70 | 65 6e 52 65 73 46 69 6c | = FSpOp|enResFil|
|00002010| 65 28 26 6e 65 77 44 6f | 63 75 6d 65 6e 74 2c 20 |e(&newDo|cument, |
|00002020| 66 73 52 64 57 72 50 65 | 72 6d 29 3b 0d 09 09 66 |fsRdWrPe|rm);...f|
|00002030| 69 6c 65 4f 70 65 6e 20 | 3d 20 74 72 75 65 3b 0d |ileOpen |= true;.|
|00002040| 09 0d 09 09 53 61 76 65 | 57 69 6e 64 6f 77 73 41 |....Save|WindowsA|
|00002050| 6e 64 50 6f 73 69 74 69 | 6f 6e 73 28 29 3b 0d 0d |ndPositi|ons();..|
|00002060| 09 09 43 6c 6f 73 65 52 | 65 73 46 69 6c 65 28 72 |..CloseR|esFile(r|
|00002070| 65 66 4e 75 6d 29 3b 0d | 09 09 46 61 69 6c 52 65 |efNum);.|..FailRe|
|00002080| 73 45 72 72 6f 72 28 29 | 3b 0d 09 09 66 69 6c 65 |sError()|;...file|
|00002090| 4f 70 65 6e 20 3d 20 66 | 61 6c 73 65 3b 0d 09 7d |Open = f|alse;..}|
|000020a0| 0d 09 43 61 74 63 68 28 | 65 72 72 29 0d 09 7b 0d |..Catch(|err)..{.|
|000020b0| 09 09 69 66 28 66 69 6c | 65 4f 70 65 6e 29 0d 09 |..if(fil|eOpen)..|
|000020c0| 09 09 43 6c 6f 73 65 52 | 65 73 46 69 6c 65 28 72 |..CloseR|esFile(r|
|000020d0| 65 66 4e 75 6d 29 3b 0d | 09 7d 0d 09 0d 09 2f 2f |efNum);.|.}....//|
|000020e0| 0d 09 2f 2f 20 4f 6e 63 | 65 20 77 65 20 64 6f 20 |..// Onc|e we do |
|000020f0| 74 68 61 74 2c 20 77 65 | 20 71 75 69 74 0d 09 2f |that, we| quit../|
|00002100| 2f 0d 09 67 41 70 70 6c | 69 63 61 74 69 6f 6e 53 |/..gAppl|icationS|
|00002110| 68 6f 75 6c 64 51 75 69 | 74 20 3d 20 74 72 75 65 |houldQui|t = true|
|00002120| 3b 0d 09 0d 09 72 65 74 | 75 72 6e 20 6e 6f 45 72 |;....ret|urn noEr|
|00002130| 72 3b 0d 7d 20 2f 2f 20 | 4f 70 65 6e 41 70 70 6c |r;.} // |OpenAppl|
|00002140| 69 63 61 74 69 6f 6e 45 | 76 65 6e 74 0d 0d 2f 2f |icationE|vent..//|
|00002150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2f 2f 20 4f 70 65 6e |--------|.// Open|
|000021b0| 44 6f 63 75 6d 65 6e 74 | 45 76 65 6e 74 3a 20 0d |Document|Event: .|
|000021c0| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|000021d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 70 61 73 63 61 |--------|--.pasca|
|00002220| 6c 20 4f 53 45 72 72 20 | 4f 70 65 6e 44 6f 63 75 |l OSErr |OpenDocu|
|00002230| 6d 65 6e 74 45 76 65 6e | 74 28 54 41 45 76 65 6e |mentEven|t(TAEven|
|00002240| 74 26 20 61 65 2c 20 54 | 41 45 76 65 6e 74 26 20 |t& ae, T|AEvent& |
|00002250| 72 65 70 6c 79 2c 20 6c | 6f 6e 67 20 72 65 66 43 |reply, l|ong refC|
|00002260| 6f 6e 29 0d 7b 0d 09 54 | 44 65 73 63 72 69 70 74 |on).{..T|Descript|
|00002270| 6f 72 20 64 6f 63 75 6d | 65 6e 74 4c 69 73 74 3b |or docum|entList;|
|00002280| 0d 09 54 44 65 73 63 72 | 69 70 74 6f 72 20 6f 6e |..TDescr|iptor on|
|00002290| 65 44 6f 63 75 6d 65 6e | 74 3b 0d 09 4f 53 45 72 |eDocumen|t;..OSEr|
|000022a0| 72 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 09 |r err = |noErr;..|
|000022b0| 46 53 53 70 65 63 20 64 | 6f 63 75 6d 65 6e 74 54 |FSSpec d|ocumentT|
|000022c0| 6f 4f 70 65 6e 3b 0d 09 | 73 68 6f 72 74 20 72 65 |oOpen;..|short re|
|000022d0| 66 4e 75 6d 20 3d 20 2d | 31 3b 0d 09 42 6f 6f 6c |fNum = -|1;..Bool|
|000022e0| 65 61 6e 20 66 69 6c 65 | 4f 70 65 6e 20 3d 20 66 |ean file|Open = f|
|000022f0| 61 6c 73 65 3b 0d 09 0d | 09 54 72 79 0d 09 7b 0d |alse;...|.Try..{.|
|00002300| 09 09 64 6f 63 75 6d 65 | 6e 74 4c 69 73 74 20 3d |..docume|ntList =|
|00002310| 20 61 65 2e 47 65 74 44 | 65 73 63 72 69 70 74 6f | ae.GetD|escripto|
|00002320| 72 28 6b 65 79 44 69 72 | 65 63 74 4f 62 6a 65 63 |r(keyDir|ectObjec|
|00002330| 74 2c 20 74 79 70 65 41 | 45 4c 69 73 74 29 3b 0d |t, typeA|EList);.|
|00002340| 09 09 46 4f 52 45 41 43 | 48 44 45 53 43 52 49 50 |..FOREAC|HDESCRIP|
|00002350| 54 4f 52 28 26 64 6f 63 | 75 6d 65 6e 74 4c 69 73 |TOR(&doc|umentLis|
|00002360| 74 2c 20 6f 6e 65 44 6f | 63 75 6d 65 6e 74 29 0d |t, oneDo|cument).|
|00002370| 09 09 7b 0d 09 09 09 6f | 6e 65 44 6f 63 75 6d 65 |..{....o|neDocume|
|00002380| 6e 74 2e 47 65 74 46 53 | 53 28 64 6f 63 75 6d 65 |nt.GetFS|S(docume|
|00002390| 6e 74 54 6f 4f 70 65 6e | 29 3b 0d 0d 09 09 09 72 |ntToOpen|);.....r|
|000023a0| 65 66 4e 75 6d 20 3d 20 | 46 53 70 4f 70 65 6e 52 |efNum = |FSpOpenR|
|000023b0| 65 73 46 69 6c 65 28 26 | 64 6f 63 75 6d 65 6e 74 |esFile(&|document|
|000023c0| 54 6f 4f 70 65 6e 2c 20 | 66 73 52 64 50 65 72 6d |ToOpen, |fsRdPerm|
|000023d0| 29 3b 0d 09 09 09 66 69 | 6c 65 4f 70 65 6e 20 3d |);....fi|leOpen =|
|000023e0| 20 74 72 75 65 3b 0d 09 | 09 09 0d 09 09 09 2f 2f | true;..|......//|
|000023f0| 0d 09 09 09 2f 2f 20 49 | 66 20 77 65 20 67 65 74 |....// I|f we get|
|00002400| 20 61 6e 20 6f 70 65 6e | 20 64 6f 63 75 6d 65 6e | an open| documen|
|00002410| 74 20 65 76 65 6e 74 2c | 20 77 65 20 72 65 73 74 |t event,| we rest|
|00002420| 6f 72 65 20 61 6c 6c 20 | 6f 66 0d 09 09 09 2f 2f |ore all |of....//|
|00002430| 20 74 68 65 20 6f 70 65 | 6e 20 77 69 6e 64 6f 77 | the ope|n window|
|00002440| 73 20 61 6e 64 20 73 65 | 74 20 74 68 65 69 72 20 |s and se|t their |
|00002450| 70 6f 73 69 74 69 6f 6e | 20 61 67 61 69 6e 2e 0d |position| again..|
|00002460| 09 09 09 2f 2f 0d 09 09 | 09 52 65 73 74 6f 72 65 |...//...|.Restore|
|00002470| 41 6c 6c 57 69 6e 64 6f | 77 49 6e 66 6f 72 6d 61 |AllWindo|wInforma|
|00002480| 74 69 6f 6e 28 29 3b 0d | 0d 09 09 09 43 6c 6f 73 |tion();.|....Clos|
|00002490| 65 52 65 73 46 69 6c 65 | 28 72 65 66 4e 75 6d 29 |eResFile|(refNum)|
|000024a0| 3b 0d 09 09 09 66 69 6c | 65 4f 70 65 6e 20 3d 20 |;....fil|eOpen = |
|000024b0| 66 61 6c 73 65 3b 0d 09 | 09 7d 0d 09 09 64 6f 63 |false;..|.}...doc|
|000024c0| 75 6d 65 6e 74 4c 69 73 | 74 2e 44 69 73 70 6f 73 |umentLis|t.Dispos|
|000024d0| 65 28 29 3b 0d 09 7d 0d | 09 43 61 74 63 68 28 65 |e();..}.|.Catch(e|
|000024e0| 72 72 29 0d 09 7b 0d 09 | 09 69 66 28 66 69 6c 65 |rr)..{..|.if(file|
|000024f0| 4f 70 65 6e 29 0d 09 09 | 09 43 6c 6f 73 65 52 65 |Open)...|.CloseRe|
|00002500| 73 46 69 6c 65 28 72 65 | 66 4e 75 6d 29 3b 0d 0d |sFile(re|fNum);..|
|00002510| 09 09 6f 6e 65 44 6f 63 | 75 6d 65 6e 74 2e 44 69 |..oneDoc|ument.Di|
|00002520| 73 70 6f 73 65 28 29 3b | 0d 09 09 64 6f 63 75 6d |spose();|...docum|
|00002530| 65 6e 74 4c 69 73 74 2e | 44 69 73 70 6f 73 65 28 |entList.|Dispose(|
|00002540| 29 3b 0d 09 7d 0d 09 09 | 0d 09 2f 2f 0d 09 2f 2f |);..}...|..//..//|
|00002550| 20 4f 6e 63 65 20 77 65 | 20 64 6f 20 74 68 61 74 | Once we| do that|
|00002560| 2c 20 77 65 20 71 75 69 | 74 0d 09 2f 2f 0d 09 67 |, we qui|t..//..g|
|00002570| 41 70 70 6c 69 63 61 74 | 69 6f 6e 53 68 6f 75 6c |Applicat|ionShoul|
|00002580| 64 51 75 69 74 20 3d 20 | 74 72 75 65 3b 09 0d 09 |dQuit = |true;...|
|00002590| 0d 09 72 65 74 75 72 6e | 20 6e 6f 45 72 72 3b 0d |..return| noErr;.|
|000025a0| 7d 20 2f 2f 20 4f 70 65 | 6e 44 6f 63 75 6d 65 6e |} // Ope|nDocumen|
|000025b0| 74 45 76 65 6e 74 0d 00 | 00 00 00 00 00 00 00 00 |tEvent..|........|
|000025c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 01 00 00 00 01 c6 | 00 00 00 c6 00 00 00 66 |........|.......f|
|00002610| 09 09 09 75 73 65 72 42 | 6f 78 3b 0d 09 0d 09 2f |...userB|ox;..../|
|00002620| 2f 0d 09 2f 2f 20 41 73 | 73 75 6d 65 20 74 68 61 |/..// As|sume tha|
|00002630| 07 4d 61 69 6e 2e 63 70 | 02 00 00 00 54 45 58 54 |.Main.cp|....TEXT|
|00002640| 4d 4d 43 43 01 00 00 34 | 00 00 00 00 00 00 1a 7d |MMCC...4|.......}|
|00002650| 00 00 54 45 58 54 4d 4d | 43 43 01 00 00 34 00 00 |..TEXTMM|CC...4..|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 aa b7 87 c1 00 00 | 25 37 00 00 02 2c 09 2f |........|%7...,./|
|00002680| 2f 20 64 69 73 61 62 6c | 65 64 0d 09 2f 2f 0d 09 |/ disabl|ed..//..|
|00002690| 47 65 74 44 49 74 65 6d | 28 64 6c 6f 67 2c 20 69 |GetDItem|(dlog, i|
|000026a0| 74 65 6d 20 2d 20 31 2c | 20 26 74 79 70 65 2c 20 |tem - 1,| &type, |
|000026b0| 26 69 74 65 6d 48 61 6e | 64 6c 65 2c 20 26 75 73 |&itemHan|dle, &us|
|000026c0| 65 72 42 6f 78 29 3b 0d | 09 69 66 28 74 79 70 65 |erBox);.|.if(type|
|000026d0| 20 26 20 69 74 65 6d 44 | 69 73 61 62 6c 65 29 0d | & itemD|isable).|
|000026e0| 09 7b 0d 09 09 47 65 74 | 44 49 74 65 6d 28 64 6c |.{...Get|DItem(dl|
|000026f0| 6f 67 2c 20 69 74 65 6d | 2c 20 26 74 79 70 65 2c |og, item|, &type,|
|00002700| 00 00 00 1e 00 2b 00 04 | 03 61 02 24 00 2b 00 04 |.....+..|.a.$.+..|
|00002710| 03 61 02 24 00 00 00 00 | 00 00 00 00 00 00 00 00 |.a.$....|........|
|00002720| 00 00 00 00 00 0a 00 00 | 1a 06 01 09 00 00 00 00 |........|........|
|00002730| 00 00 00 46 00 02 00 2e | 00 00 1a 06 01 09 00 cc |...F....|........|
|00002740| 74 ec 80 00 00 59 01 7a | 01 f4 03 0a 94 20 00 00 |t....Y.z|..... ..|
|00002750| 00 00 00 01 00 02 00 80 | 0b 6e 65 77 44 6f 63 75 |........|.newDocu|
|00002760| 6d 65 6e 74 00 16 00 00 | 1b ef 01 1b 00 cc 74 8c |ment....|......t.|
|00002770| 00 00 07 72 65 66 4e 75 | 6d 20 00 00 00 48 00 09 |...refNu|m ...H..|
|00002780| 4d 6f 6e 61 63 6f 00 00 | 00 00 00 00 00 00 00 00 |Monaco..|........|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 03 00 04 00 57 00 04 | 01 f0 01 e8 00 57 00 04 |.....W..|.....W..|
|000027b0| 01 f0 01 e8 aa b7 82 0f | 00 00 01 67 00 00 01 67 |........|...g...g|
|000027c0| 00 00 22 c0 01 00 00 00 | 01 00 00 00 01 c6 00 00 |..".....|........|
|000027d0| 00 c6 00 00 00 66 01 08 | 0b 48 0b c2 00 00 00 1c |.....f..|.H......|
|000027e0| 00 66 00 02 4d 50 53 52 | 00 01 00 1a 42 4b 50 54 |.f..MPSR|....BKPT|
|000027f0| 00 00 00 32 44 54 56 55 | 00 00 00 3e 03 f0 ff ff |...2DTVU|...>....|
|00002800| 00 00 00 00 00 00 00 00 | 03 ed ff ff 00 00 00 7a |........|.......z|
|00002810| 00 00 00 00 14 90 ff ff | 00 00 00 22 00 00 00 00 |........|..."....|
|00002820| 0d dd ff ff 00 00 00 30 | 00 00 00 00 00 00 00 00 |.......0|........|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+